home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 9 / Tiger_Disk_009_19xx_Tiger-Crew-Disk_de_Side_A.d64 / demo zum tip (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  854b  |  29 lines
  1. 2 printchr$(14):poke53280,6
  2. 5 dimc$(50),a(80)
  3. 6 print"[147][196]u kannst im [198]olgenden die [194]uchstaben   ganz nach [194]elieben [199][210][207][211][211] oder ";
  4. 7 print"klein ein-geben...":poke198,0:wait198,1:poke198,0
  5. 10 print"[147]";:a$="":input"[199]ib bitte ein [215]ort ein ";a$
  6. 15 ifa$=""thenend
  7. 20 fori=1tolen(a$):x$=mid$(a$,i,1)
  8. 30 a=asc(x$):ifa>192anda<218thena=a-128
  9. 40 a(i)=a:next:a$=""
  10. 45 forj=1toi-1:a$=a$+chr$(a(j)):next
  11. 50 print"[194]ilde einen [211]atz mit diesem [215]ort !"
  12. 60 inputb$
  13. 65 ifythenfori=1toy:c$(i)="":next
  14. 70 z=1:y=1
  15. 80 fori=1tolen(b$)
  16. 90 ifmid$(b$,i,1)=" "thenx=i-z:c$(y)=mid$(b$,z,x):z=z+x+1:y=y+1
  17. 100 next
  18. 110 x=i-z:c$(y)=mid$(b$,z,x)
  19. 120 fori=1toy
  20. 125 forj=1tolen(c$(i)):x$=mid$(c$(i),j,1)
  21. 130 a=asc(x$):ifa>192anda<218thena=a-128
  22. 140 a(j)=a:nextj:c$(i)=""
  23. 150 fork=1toj-1:c$(i)=c$(i)+chr$(a(k)):nextk
  24. 160 nexti
  25. 180 fori=1toy:printc$(i):ifc$(i)=a$thenprint"^^  [196]ies war das [215]ort ! [146]":s=1
  26. 190 next
  27. 200 ifs=0thenprint" [196][213] [211][195][200][215][193][195][200][203][207][208][198] ! [146] - [196]ein [215]ort kam in   [196]einem [211]atz nicht vor!
  28. 240 [151]198,0:[146]198,1:[151]198,0:s[178]0:[137]10
  29.